home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / tcsel003.zip / TCTIMER.PAS < prev    next >
Pascal/Delphi Source File  |  1992-10-16  |  407b  |  31 lines
  1. unit tctimer;
  2.  
  3. interface
  4. uses tptimer;
  5.  
  6.   var
  7.     start : longint;
  8.  
  9. procedure StartTimer;
  10.  
  11. procedure WriteElapsedTime;
  12.  
  13.  
  14.  
  15. implementation
  16.  
  17. procedure StartTimer;
  18.   begin
  19.     start := ReadTimer;
  20.   end;
  21.  
  22. procedure  WriteElapsedTime;
  23.   var stop : longint;
  24.   begin
  25.     stop := ReadTimer;
  26.     writeln('Elapsed time = ',(ElapsedTime(start,stop) / 1000):10:6,' seconds');
  27.   end;
  28.  
  29.  
  30. end.
  31.